(de thread1 (Object . Bodies)
  (let Functions (bodiesAsFunctions Bodies)
    (for Function Functions
      (Function Object) ) )
  Object)